(defn print-dl [map]
  (prn "<dl>")	
  (doseq [p map]
	 (printf "<dt>%s</dt>%n" (key p))
	 (printf "<dd>%s</dd>%n" (val p)))
  (prn "</dl>")
  )
(prn "<h2>Properties</h2>")
(print-dl (System/getProperties))
(prn "<h2>Parameters</h2>")
(print-dl (.getParameterMap *request*))